home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CURSOR.ZIP / TESTCUR.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-04-09  |  379 b   |  21 lines
  1. Program TestCursor;
  2. uses
  3.     Cursor,
  4.     DOS, CRT;
  5. var
  6.     Instr : string;
  7. begin
  8.     SetCursor(UlCursor);
  9.     Write('Normal Input:');
  10.     Readln(Instr);
  11.     SetCursor(NoCursor);
  12.     Write('Where is the Cursor?');
  13.     Readln(Instr);
  14.     SetCursor(OsCursor);
  15.     Write('OverStrike Cursor?');
  16.     Readln(Instr);
  17.     SetCursorScanLines($0E, $0A);
  18.     Write('HalfOverStrike Cursor?');
  19.     Readln(Instr);
  20. end.
  21.